100 REM EQUALIZER ZUR ANPASSUNG
105 REM BEREITS VORHANDENER REL-DATEIEN
108 :
110 PRINT"[147]"(null)(14,5)"F+M MANAGER"
120 PRINT(null)(13,6)"[192][192][192][192][192][192][192][192][192][192][192][192][192]"
130 PRINT(null)(15,8)"EQUALIZER"
140 PRINT(null)(6,11)"DATEINAME  [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
150 (null)3:(null)
160 DS=65535 : FE=-1
170 GOSUB500
180 :
190 :
200 PRINT(null)(5,16)"DATENSAETZE WERDEN GEZAEHLT !"
210 PRINT(null)(13,18)"DATENSATZ#"
220 (null)"I"
230 (null) S0$
240 GOSUB600
250 FOR I=1TODS
260 (null) I,1,A$ : INPUT#127,ER
270 IF ER<>50 THEN PRINT(null)(23,18);I : NEXT
280 (null)
290 (null) "S:"+LEFT$(S0$,15)+"+"
300 PRINT"[147]"(null)(2,0)"DATENSAETZE:"I"DATENSATZLAENGE:"S1$
310 :
320 PRINT(null)(9,3)"ANZAHL DER FELDER ? ";
330 (null) 2,FE :DIM FE(FE)
340 IFFE=1THENFE(1)=ASC(A$):GOTO450
350 :
360 FOR J=1TO FE
370 PRINTTAB(10)"MAX. FELDLAENGE :"VAL(S1$)-A
380 PRINTTAB(10)"FELD";J;TAB(19)"LAENGE : ";
390 (null) 3,FE(J)
400 IF FE(J)=0 THEN PRINTTAB(11)"NULL NICHT ERLAUBT":GOTO370
410 IF A+FE(J) > VAL(S1$) THEN PRINTTAB(16)"ZU LANG !":GOTO370
420 A=FE(J)+A
430 NEXT
440 :
450 PRINTTAB(9)"FILE WIRD GESCHRIEBEN!"
460 DS=I-1 : GOSUB500
470 CLOSE15
480 END
490 :
500 OPEN1,8,1,LEFT$(S0$,15)+"+"
510 PRINT#1, CHR$(DS-INT(DS/256)*256);
520 PRINT#1, CHR$(DS/256);
530 IF FE=-1 THEN  PRINT#1,CHR$(1);CHR$(1);:GOTO580
540 PRINT#1, CHR$(FE);
550 FOR K=1TOFE
560 PRINT#1, CHR$(FE(K));
570 NEXT
580 CLOSE1
590 RETURN
600 OPEN15,8,15
610 PRINT#15,"M-R"CHR$(200)CHR$(0)
620 GET#15,A$
630 S1$=STR$(ASC(A$))
640 RETURN